Model-DID Regressions - V01

Data pre-processed and analyzied from chat logs and web logs by Marcus Collins.

Analysis based on R-Scripts from Jacob LaRiviere.

R-Markdown and plots from Mike Wise.

Initialization of libraries

library(tidyverse,quietly=T,warn.conflicts=F)
library(lubridate,quietly=T,warn.conflicts=F)
library(scales,quietly=T,warn.conflicts=F)
library(zoo,quietly=T,warn.conflicts=F)
library(lmtest,quietly=T,warn.conflicts=F)
library(sandwich,quietly=T,warn.conflicts=F)
library(gridExtra,quietly=T,warn.conflicts = F)
library(knitr,quietly=T,warn.conflicts = F)

Set random seeds, record start time and version.

set.seed(1234)
version <-0.1
versionstring <- sprintf("Version %.1f",version)

starttime <- Sys.time()
startfmttime <- sprintf(format(starttime, "%d %b %Y - %H:%M:%S"))

print(sprintf("%s created on %s",versionstring,startfmttime))

## [1] "Version 0.1 created on 29 Apr 2017 - 16:49:39"

Various constants

tztz <- "UTC"  # Apparently all of our time zones are UTC...
s2date <- function(strdate){
  return(as.POSIXct(strdate,tz=tztz))
}
firstday <- s2date("2015-01-01")  # we will count days from the first day in 2015

smcdates <- c("2016-08-17/red/0-30%","2016-09-1/red/30-50%","2016-09-07/red/50-100%")
xbxdates <- c("2016-10-11/purple/0-10%","2016-10-18/purple/10-30%","2016-11-01/purple/30-50%","2016-12-15/purple/50-90%",
              "2016-11-17/blue/content change")
totdates <- c(smcdates,xbxdates)
smcback <- "lightsteelblue1"
xbxback <- "darkseagreen2"
xabback <- "darkseagreen3"
totback <- "wheat"

fpath <- "TorontoData"
sdate <- s2date("2016-06-01")
mdate <- s2date("2017-01-01")
edate <- s2date("2017-03-07")
verbose <- 2
justdoone <- T # for testing

Misc utility functions

crackdate <- function(datestr){
  sar <- unlist(strsplit(datestr,"/"))
  sdate <- sar[[1]]
  date <- s2date(sdate)
  val <- 0
  sval <- sar[[3]]
  levpart <- sar[[3]]
  pctpresent <- F
  if (grepl("%",levpart)){
    levpart <- gsub("%","",levpart)
    val <- as.numeric(unlist(strsplit(levpart,"-"))[[2]])
    sval <- gsub("-","_",levpart)
    pctpresent <- T
  }
  return(list(date=date,sdate=sdate,val=val,sval=sval,pctpresent=pctpresent))
}

addStepDateToVek <- function(dates,idx,dtvek,vvek){
  cd1 <- crackdate(dates[[idx]])
  if (!cd1$pctpresent){
    # if there is no % don't do anything
    return(vvek)
  }
  dt1 <- cd1$date
  if (idx<length(dates)){
    cd2 <- crackdate(dates[[idx+1]])
    dt2 <- cd2$date
  } else {
    dt2 <- max(dtvek)
  }
  #print("addstepdate")
  #print(dt1)
  #print(dt2)
  val <- cd1$val
  tochg <-  dt1<=dtvek & dtvek<= dt2
  vvek[ tochg ] <- val
  #print(sprintf("changed %d values to %d",sum(tochg),val))
  return(vvek)
}
getStepDates <- function(dates,dtvek){
 vvek <- rep(0,length(dtvek))
 for (i in 1:length(dates)){
   vvek <- addStepDateToVek(dates,i,dtvek,vvek)
 }
 return(vvek)
}
getSmcStepDates <- function(dtvek){
 return(getStepDates(smcdates,dtvek))
}
getXabStepDates <- function(dtvek){
 return(getStepDates(xbxdates,dtvek))
}

Plot functions

addVlinesAndText <- function(vlines,gp){
  if (is.null(vlines)) return(gp) # do nothing in this case
  
  # split the lines and convert to data.frame
  sar <- strsplit(vlines,"/")
  # the following reforms the date strings into a data.frame for geom_vline
  ldf <- data.frame(t(matrix(unlist(sar),length(sar[[1]]),length(sar)))) #tricky
  names(ldf) <- c("dt","clr","lab")
  ldf$dt <- s2date(ldf$dt)
  ldf$ndt <- as.numeric(ldf$dt)
  # add a newline to the front so as to display the text 
  # this keeps the text from writing on top of the vline
  
  ldf$lab <- paste0("\n",ldf$lab) 
  # now actually add the verticle lines and the text 
  gp <- gp + geom_vline(xintercept=ldf$ndt,color=ldf$clr) +
             annotate(geom="text",x=ldf$dt,y=0,label=ldf$lab,color=ldf$clr,hjust=0,angle=90,na.rm=T)
  return(gp)
}
addBackground <- function(backg,gp){
  if (is.null(backg)) return(gp) # do nothing in this case
  gp <- gp + theme(panel.background = element_rect(fill = backg))
  return(gp)
}
overdate <- function(ovdate,defdate){
  # date override
  rv <- defdate
  if (!is.null(ovdate)) { 
    rv <- ovdate
  }
  return(rv)
}
dailyplot <- function(ddf,x,y,mtit="",xlab="date",ylab=NULL,vlines=NULL,backg=NULL,series=NULL,
                      ovsdate=NULL,ovedate=NULL,rotxaxtxt=0){
  # Single series plot  with monthly breaks on the x-axis
  
  # override dates if needed
  dpsdate <- overdate(ovsdate,sdate)
  dpedate <- overdate(ovedate,edate)
  
  brkctrl <- "1 month"
  dltdays <- difftime(dpedate,dpsdate,"days") 
  if (dltdays<30) brkctrl <- "1 day"
  
  gp <- ggplot(ddf,aes_string(x=x,y=y)) + 
             geom_line(aes_string(color=series),na.rm=T)  +
             xlab(xlab) + ylab(ylab) + ggtitle(mtit) +
             scale_x_datetime("Date",breaks = date_breaks(brkctrl),limits=c(dpsdate,dpedate))

  gp <- addVlinesAndText(vlines,gp)

  gp <- addBackground(backg,gp)
  
  if (rotxaxtxt!=0){
    gp <- gp + theme(axis.text.x = element_text(angle = rotxaxtxt, hjust = 0))
  }

  return(gp)
}
residplot <- function(ddf,x,y,mtit="",xlab="date",ylab=NULL,vlines=NULL,backg=NULL,series=NULL,ovsdate=NULL,ovedate=NULL){
  # Single series plot  with monthly breaks on the x-axis
  
  # override dates if needed
  dpsdate <- overdate(ovsdate,sdate)
  dpedate <- overdate(ovedate,edate)
  
  brkctrl <- "1 month"
  dltdays <- difftime(dpedate,dpsdate,"days") 
  if (dltdays<30) brkctrl <- "1 day"
  
  gp <- ggplot(ddf,aes_string(x=x,y=y)) + 
             geom_point(aes_string(color=series),na.rm=T)  +
             xlab(xlab) + ylab(ylab) + ggtitle(mtit) +
             scale_x_datetime("Date",breaks = date_breaks(brkctrl),limits=c(dpsdate,dpedate)) +
             theme(axis.text.x = element_text(angle = 30, hjust = 1))

  gp <- addVlinesAndText(vlines,gp)

  gp <- addBackground(backg,gp)
  
  hp <- ggplot(ddf) + geom_histogram(aes_string(x=y),bins=30)
  hp <- addBackground(backg,hp)
  
  ghp <- grid.arrange(gp, hp, ncol=2,widths = c(2,1))

  return(ghp)
}

Read in consolidated chat, call, and session volume data

stload <- Sys.time()
tfname <- sprintf("%s/%s",fpath,"colsolidatedTorontoData02.csv")
condf <- read.csv(tfname)

minsessfilt <- 5000
nbef <- nrow(condf)
condf <- condf %>% filter(minsessfilt<actsess)
naft <- nrow(condf)
print(sprintf("Filtered %d of %d hours because sessions less than %d",(nbef-naft),naft,minsessfilt))

## [1] "Filtered 9 of 5814 hours because sessions less than 5000"

condf <- condf %>% mutate( dt = as.POSIXct(dt,tz=tztz) ) %>%
                   mutate( log_winchib = log(winchib) ) %>%
                   mutate( log_wincall = log(wincall) ) %>%
                   mutate( log_xbxchib = log(xbxchib) ) %>%
                   mutate( log_xbxcall = log(xbxcall) ) %>%
                   mutate( rate_winchib = winchib/actsess ) %>%
                   mutate( rate_wincall = wincall/actsess ) %>%
                   mutate( rate_xbxchib = xbxchib/actsess ) %>%
                   mutate( rate_xtkchib = xtkchib/actsess ) %>%
                   mutate( rate_xabchib = xabchib/actsess ) %>%
                   mutate( rate_xbxcall = xbxcall/actsess ) %>%
                   mutate( rate_xtkcall = xtkcall/actsess ) %>%
                   mutate( rate_xabcall = xabcall/actsess ) %>%
                   mutate( xbxchibdiff = xabchib-xtkchib ) %>%
                   mutate( xbxcalldiff = xabcall-xtkcall ) %>%
                   mutate( rate_xbxchibdiff = rate_xabchib-rate_xtkchib ) %>%
                   mutate( rate_xbxcalldiff = rate_xabcall-rate_xtkcall ) 

# condf <- condf %>% mutate( dt = as.POSIXct(dt,tz=tztz) ) %>%
#                    mutate( log_winchib = log(winchib) ) %>%
#                    mutate( log_wincall = log(wincall) ) %>%
#                    mutate( log_xbxchib = log(xbxchib) ) %>%
#                    mutate( log_xbxcall = log(xbxcall) ) %>%
#                    mutate( rate_winchib = winchib/actsess ) %>%
#                    mutate( rate_wincall = wincall/actsess ) %>%
#                    mutate( rate_xbxchib = xbxchib/actsess ) %>%
#                    mutate( rate_xbxcall = xbxcall/actsess ) 

dcondf <- condf %>% group_by(dnum) %>% summarise(dt=min(dt),
                                                 totchib=sum(totchib),winchib=sum(winchib),xbxchib=sum(xbxchib),
                                                 totcall=sum(totcall),wincall=sum(wincall),xbxcall=sum(xbxcall),
                                                 actsess=sum(actsess),actuser=sum(actuser)
                                                 )

elap <- as.numeric((Sys.time()-stload)[1],units="secs")
print(sprintf("Loading consolidated data took %.1f secs",elap))

## [1] "Loading consolidated data took 0.2 secs"

chats

if (verbose>=2){
  pltdf <- dcondf %>% gather(series,chib,-dt) %>% filter(series %in% c("totchib","winchib","xbxchib"))
  dailyplot(pltdf,"dt","chib",series="series",mtit="Chats In Block",ylab="Sum",vlines=totdates,backg=totback)
}

# calls

if (verbose>=2){
  pltdf <- dcondf %>% gather(series,call,-dt) %>% filter(series %in% c("totcall","wincall","xbxcall"))
  dailyplot(pltdf,"dt","call",series="series",mtit="Calls",ylab="Sum",vlines=totdates,backg=totback)
}

# sessions

if (verbose>=2){
  pltdf <- dcondf %>% gather(series,active,-dt) %>% filter(series %in% c("actsess","actuser"))
  dailyplot(pltdf,"dt","active",series="series",mtit="Sessions",ylab="Sum",vlines=totdates,backg=totback)
}

regression code

results1 <- list()
results2 <- list()
initResults <- function(){
  results1 <<- list()
  results2 <<- list()
}
  
addToResults1 <- function(newresults){
  results1[[length(results1)+1]] <<- newresults
}
addToResults2 <- function(newresults){
  results2[[length(results2)+1]] <<- newresults
}
listtodf <- function(lst){
  nr <- length(lst)    # rows
  if (nr==0) return(NULL)
  nvek <- names(lst[[1]])
  nc <- length(nvek)   # columns
  df <- data.frame(idx=1:nr) # preallocate length
  for (i in 1:nc){
    iname <- nvek[i]
    df[[iname]] <- sapply(lst,`[[`,iname)
  }
  return(df)
}
getResults1 <- function(){
  return(listtodf(results1))
}
getResults2 <- function(){
  return(listtodf(results2))
}

getregdf <- function(df,vname,discdate,befdays,aftdays,dates){
  
  # filter on time
  sregdate <- discdate - days(befdays)
  eregdate <- discdate + days(aftdays)
  df <- df %>% filter( sregdate <= dt & dt <= eregdate) 
  
  df <- df %>% mutate( hour=as.factor(hour(dt)) ) %>%
               mutate( dow=as.factor(wday(dt))) %>%  
               mutate( idx=1:nrow(df) ) 

  # add level variables
  cutidx <- which(df$dt==discdate)

    df <- df %>% mutate( lin1=if_else(idx<cutidx,idx-cutidx,0L)) %>%
                 mutate( lin2=if_else(idx<cutidx,0L,idx-cutidx)) %>%
                 mutate( lin0=1 ) %>%
                 mutate( postchange=if_else(idx<cutidx,0L,1L) )
  df <- df[complete.cases(df),]

  return(df)
}
formlist = list(
  formel1="%s ~ hour + dow + lin1 + lin2 + postchange",
  formel2a="%s ~ hour * dow - 1",
  formel2b="%s ~ lin1 + lin2 + postchange",
  formel2c="%s ~ D1 + D2 + DD",
  formeldid="%s ~ D1 + D2 + DD + HOD + DOW"
#  formel2b="%s ~ lin0 + postchange"
)
doregression <- function(df,vname,formel,chgdate,befdays,aftdays){
  df <- getregdf(df,vname,chgdate,befdays,aftdays,dates)
  formstr <- sprintf(formlist[[formel]],vname)
  form <- as.formula(formstr)
  fit <- glm(form,data=df)
  summary_fit <- summary(fit)
  coeftest_fit <- coeftest(fit, vcov = vcovHC(fit, "HC1"))
  if (verbose>0){
    print(summary_fit)
    print(coeftest_fit)
  }
  df$resid <- resid(fit)
#  df$predicted <-  df[[vname]]-df$resid
  df$predicted <-  predict(fit,df)
  # for debugging
  ffit <<- fit
  sfit <<- summary_fit
  cfit <<- coeftest_fit
  return(list(df=df,formstr=formstr,fit=fit,sfit=summary_fit,cfit=coeftest_fit))
}
regress1 <- function(df,vname,area,backg,dates,chgdate,mtit1,befdays=7,aftdays=7,model="model1"){
  crk <- crackdate(chgdate)
  idx <- length(results1)+1
  
  htit <- sprintf("%d - Regression for %s %s on %s",idx,vname,model,chgdate)
  cat(sprintf("htmlesc<<h2,%s>>\n",htit))

  rv <- doregression(df,vname,"formel1",crk$date,befdays,aftdays)
  if (verbose>0){
    df1 <- rv$df %>%  gather_("series",vname,c(vname,"predicted"))
    mtit <- sprintf("%d - %s - %s",idx,mtit1,rv$formstr)
    plt <- dailyplot(df1,"dt",vname,series="series",mtit,ylab="Sum",
                     vlines=dates,backg=backg,ovsdate=min(df1$dt),ovedate=max(df1$dt))
    print(plt)
    mtit <- sprintf("%d - Residuals - %s - %s",idx,mtit1,rv$formstr)
    plt <- residplot(df1,"dt","resid",mtit,ylab="Sum",
                     vlines=dates,backg=backg,ovsdate=min(df1$dt),ovedate=max(df1$dt))
  }
  newresults <- list(var=vname,
                     title=mtit1,
                     chgDate=crk$sdate,
                     chgVal=crk$sval,
                     model=model,
                     formula=rv$formstr,
                     chgCoef.fit=rv$fit$coefficients["postchange"],
                     chgCoef.smry=rv$sfit$coefficients["postchange",1],
                     chgStd.smry=rv$sfit$coefficients["postchange",2],
                     chgTval.smry=rv$sfit$coefficients["postchange",3],
                     chgPval.smry=rv$sfit$coefficients["postchange",4],
                     chgZval.cfit=rv2$cfit["postchange","z value"],
                     chgPval.cfit=rv2$cfit["postchange","Pr(>|z|)"]                     
                     )
  addToResults1(newresults)
}
regress2 <- function(df,vname,area,backg,dates,chgdate,mtit1,befdays=7,aftdays=7,model="model2"){
  crk <- crackdate(chgdate)
  idx <- length(results1)+1
  
  htit <- sprintf("%d - Regression for %s %s on %s",idx,vname,model,chgdate)
  cat(sprintf("htmlesc<<h2,%s>>\n",htit))

  # step 1
  rv1 <- doregression(df,vname,"formel2a",crk$date,befdays,aftdays)
  if (verbose>0){
    df1 <- rv1$df %>%  gather_("series",vname,c(vname,"predicted"))
    mtit <- sprintf("%d - %s - %s",idx,mtit1,rv1$formstr)
    plt <- dailyplot(df1,"dt",vname,series="series",mtit,ylab="Sum",
                     vlines=dates,backg=backg,ovsdate=min(df1$dt),ovedate=max(df1$dt))
    print(plt)
    mtit <- sprintf("%d - Step 1 Residuals - %s - %s",idx,mtit1,rv1$formstr)
    plt <- residplot(df1,"dt","resid",mtit,ylab="Sum",
                     vlines=dates,backg=backg,ovsdate=min(df1$dt),ovedate=max(df1$dt))
  }
  newresults <- list(var=vname,
                     title=mtit1,
                     chgDate=crk$sdate,
                     chgVal=crk$sval,
                     model=model,
                     formula=rv1$formstr,
                     aic=rv1$fit$aic,
                     deviance=rv1$fit$dev
                     )
  addToResults1(newresults)
  
  # step 2
  df2 <- rv1$df
  df2$step1residuals <- rv1$fit$residuals
  vname2 <- "step1residuals"
  rv2 <- doregression(df2,vname2,"formel2b",crk$date,7,7)
  if (verbose>0){
    df1 <- rv2$df %>%  gather_("series",vname2,c(vname2,"predicted"))
    mtit <- sprintf("%d - %s - %s",idx,mtit1,rv2$formstr)
    plt <- dailyplot(df1,"dt",vname2,series="series",mtit,ylab="Sum",
                     vlines=dates,backg=backg,ovsdate=min(df1$dt),ovedate=max(df1$dt))
    print(plt)
    mtit <- sprintf("%d - Step 2 Residuals - %s - %s",idx,mtit1,rv2$formstr)
    plt <- residplot(df1,"dt","resid",mtit,ylab="Sum",
                     vlines=dates,backg=backg,ovsdate=min(df1$dt),ovedate=max(df1$dt))
  }

  newresults <- list(var=vname,
                     title=mtit1,
                     chgDate=crk$sdate,
                     chgVal=crk$sval,
                     model=model,
                     formula=rv2$formstr,
                     chgCoef.fit=rv2$fit$coefficients["postchange"],
                     chgCoef.smry=rv2$sfit$coefficients["postchange",1],
                     chgStd.smry=rv2$sfit$coefficients["postchange",2],
                     chgTval.smry=rv2$sfit$coefficients["postchange",3],
                     chgPval.smry=rv2$sfit$coefficients["postchange",4],
                     chgZval.cfit=rv2$cfit["postchange","z value"],
                     chgPval.cfit=rv2$cfit["postchange","Pr(>|z|)"]                     
                     )
  addToResults2(newresults)
}

doregressiondid <- function(df,vname,formel,verbosetxt=1){


  formstr <- sprintf(formlist[[formel]],vname)
  form <- as.formula(formstr)
  fit <- glm(form,data=df)
  summary_fit <- summary(fit)
  coeftest_fit <- coeftest(fit, vcov = vcovHC(fit, "HC1"))
  if (verbosetxt>1){
    print(summary_fit)
  }
  if (verbosetxt>0){
    print(coeftest_fit)
  }
  df$resid <- resid(fit)
#  df$predicted <-  df[[vname]]-df$resid
  df$predicted <-  predict(fit,df)
  # for debugging
  ffit <<- fit
  sfit <<- summary_fit
  cfit <<- coeftest_fit

  return(list(df=df,formstr=formstr,fit=fit,sfit=summary_fit,cfit=coeftest_fit))
}

#rdf2 <- getregdfdid(df2,vname,vname2,vname2,dates)
getregdfdid <- function(odf,vname,vname1,vname2,sdate,befdays=7,aftdays=7){
#print(head(odf))
print(vname1)
print(vname2)
  odf$DOW <- wday(odf$dt)
  odf$HOD <- hour(odf$dt)
  df <- odf[c("dt","HOD","DOW",vname1,vname2)]

  df <- df %>% gather(series,vname,c(-dt,-HOD,-DOW))
  df[vname] <- df$vname
  df$vname <- NULL
  

  print(sdate)
  crk <- crackdate(sdate)

  print(min(df$dt))
  print(max(df$dt))
  print(befdays)
  print(aftdays)
  print(crk$date)
  print(class(crk$date))
  sregdate <- crk$date - days(befdays)
  eregdate <- crk$date + days(aftdays)
  print(sprintf("getregdf2 - sdate:%s sregdate:%s eregdate:%s",
                             sdate,sregdate,eregdate))
  
  df <- df %>% filter( sregdate<=dt & dt<= eregdate )
  
  scutidx <- which(df$dt==crk$date)
  print(crk$sdate)
  print(scutidx)
  print(sprintf("scutidx:%d",scutidx))
  
  df <- df  %>% mutate( D1 = ifelse(series==vname2,1L,0L) ) %>%
                mutate( idx = 1:nrow(df) ) %>%
                mutate( D2 = ifelse(dt>crk$date,1L,0L) ) %>%
                mutate( DD = D1*D2 )
  
  # git rid of columns no longer needed
  #df$series <- NULL
  #df$idx <- NULL

  print(summary(df))
  return(df)
}

idx <- 0
regressdid <- function(df,vname,vname_ctr,vname_trt,dates,chgdate,
                        area,backg,mtit1,befdays=7,aftdays=7,model="model-did"){

  idx <<- idx+1
  
  rdf <- getregdfdid(df,vname,vname_ctr,vname_trt,chgdate,befdays,aftdays)
  rv <- doregressiondid(rdf,vname,"formeldid")
  rrv <<- rv
  if (verbose>0){
    df1 <- rv$df %>%  gather_("series",vname,c(vname,"predicted"))

    mtit <- sprintf("%d - %s - %s",idx,mtit1,rv$formstr)
    plt <- dailyplot(df1,"dt",vname,series="series",mtit,ylab="Sum",
                     vlines=chgdate,backg=backg,ovsdate=min(df1$dt),ovedate=max(df1$dt),rotxaxtxt=-30)
    suppressWarnings(print(plt))
    mtit <- sprintf("%d - DID Residuals - %s - %s",idx,mtit1,rv$formstr)
    plt <- residplot(df1,"dt","resid",mtit,ylab="Sum",
                     vlines=chgdate,backg=backg,ovsdate=min(df1$dt),ovedate=max(df1$dt))
  }
  crk <- crackdate(chgdate)
  newresults <- list(var=vname,
                     title=mtit1,
                     chgDate=crk$sdate,
                     chgVal=crk$sval,
                     model=model,
                     formula=rv$formstr,
                     chgCoef.fit=rv$fit$coefficients["DD"],
                     chgCoef.smry=rv$sfit$coefficients["DD",1],
                     chgStd.smry=rv$sfit$coefficients["DD",2],
                     chgTval.smry=rv$sfit$coefficients["DD",3],
                     chgPval.smry=rv$sfit$coefficients["DD",4],
                     chgZval.cfit=rv$cfit["DD","z value"],
                     chgPval.cfit=rv$cfit["DD","Pr(>|z|)"]                     
                     )
  addToResults1(newresults)
}

regressoverdatesdid <- function(model,df,vname,vname_ctr,vname_trt,area,title,befdays=7,aftdays=7){
  dates <- xbxdates
  backg <- xbxback
  atit <- sprintf("%s - %s",area,title)
  for (chgdate in dates){
    switch(model,
    "model-did"=regressdid(condf,vname,vname_ctr,vname_trt,dates,chgdate,
                                  area,backg,atit,befdays=befdays,aftdays=aftdays)
    )
  }
}

initResults()

justdoone <- F # for testing
verbose <- 2

# we just want DID with Xbox
m <- "model-did"
if (justdoone){
  regressoverdatesdid(m,condf,"chats","xtkchib","xabchib","Xbox","Hourly Chats")
} else {

  regressoverdatesdid(m,condf,"chats","xtkchib","xabchib","Xbox","Hourly Chats")
  regressoverdatesdid(m,condf,"log_chatss","xtkchib","xabchib","Xbox","log(Hourly Chats)")
  regressoverdatesdid(m,condf,"rate_chats","xtkchib","xabchib","Xbox","Hourly Chat Rate per Session")
  
  regressoverdatesdid(m,condf,"calls","xtkchib","xabchib","Xbox","Hourly Chats")
  regressoverdatesdid(m,condf,"log_calls","xtkchib","xabchib","Xbox","log(Hourly Chats)")
  regressoverdatesdid(m,condf,"rate_calls","xtkchib","xabchib","Xbox","Hourly Chat Rate per Session")
}

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-11/purple/0-10%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-11 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-11/purple/0-10% sregdate:2016-10-04 eregdate:2016-10-18"
## [1] "2016-10-11"
## [1] 159 486
## [1] "scutidx:159" "scutidx:486"
##        dt                           HOD             DOW      
##  Min.   :2016-10-04 00:00:00   Min.   : 0.00   Min.   :1.00  
##  1st Qu.:2016-10-07 13:15:00   1st Qu.: 5.00   1st Qu.:2.00  
##  Median :2016-10-11 05:00:00   Median :11.00   Median :4.00  
##  Mean   :2016-10-11 02:04:35   Mean   :11.40   Mean   :3.96  
##  3rd Qu.:2016-10-14 14:45:00   3rd Qu.:17.75   3rd Qu.:6.00  
##  Max.   :2016-10-18 00:00:00   Max.   :23.00   Max.   :7.00  
##     series              chats             D1           idx       
##  Length:654         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 53.0   1st Qu.:0.0   1st Qu.:164.2  
##  Mode  :character   Median : 96.0   Median :0.5   Median :327.5  
##                     Mean   :113.9   Mean   :0.5   Mean   :327.5  
##                     3rd Qu.:161.5   3rd Qu.:1.0   3rd Qu.:490.8  
##                     Max.   :360.0   Max.   :1.0   Max.   :654.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :1.0000   Median :0.0000  
##  Mean   :0.5138   Mean   :0.2569  
##  3rd Qu.:1.0000   3rd Qu.:1.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 139.60676   10.11861  13.7970 < 2.2e-16 ***
## D1          -86.52830    7.08887 -12.2062 < 2.2e-16 ***
## D2          -11.41221    8.95529  -1.2744    0.2025    
## DD           -1.09075    9.76352  -0.1117    0.9110    
## HOD           1.67823    0.38572   4.3509 1.356e-05 ***
## DOW           1.16068    1.22876   0.9446    0.3449    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-18/purple/10-30%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-18 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-18/purple/10-30% sregdate:2016-10-11 eregdate:2016-10-25"
## [1] "2016-10-18"
## [1] 169 504
## [1] "scutidx:169" "scutidx:504"
##        dt                           HOD             DOW       
##  Min.   :2016-10-11 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-14 11:15:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-10-17 23:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-10-17 23:26:30   Mean   :11.41   Mean   :3.985  
##  3rd Qu.:2016-10-21 10:45:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-10-25 00:00:00   Max.   :23.00   Max.   :7.000  
##     series              chats             D1           idx       
##  Length:670         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:168.2  
##  Mode  :character   Median : 89.0   Median :0.5   Median :335.5  
##                     Mean   :107.5   Mean   :0.5   Mean   :335.5  
##                     3rd Qu.:147.8   3rd Qu.:1.0   3rd Qu.:502.8  
##                     Max.   :347.0   Max.   :1.0   Max.   :670.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4955   Mean   :0.2478  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 137.70514    9.93706  13.8577 < 2.2e-16 ***
## D1          -87.86982    6.70177 -13.1114 < 2.2e-16 ***
## D2           -8.98603    8.58288  -1.0470  0.295113    
## DD           13.05055    9.38516   1.3906  0.164362    
## HOD           1.43734    0.37727   3.8099  0.000139 ***
## DOW          -0.37349    1.23853  -0.3016  0.762990    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-01/purple/30-50%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-01 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-01/purple/30-50% sregdate:2016-10-25 eregdate:2016-11-08"
## [1] "2016-11-01"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-10-25 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-28 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-01 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-11-01 00:00:00   Mean   :11.47   Mean   :3.997  
##  3rd Qu.:2016-11-04 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-08 00:00:00   Max.   :23.00   Max.   :7.000  
##     series              chats              D1           idx       
##  Length:674         Min.   :  1.00   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 49.25   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 87.00   Median :0.5   Median :337.5  
##                     Mean   :106.29   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:142.75   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :377.00   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 106.22977    9.59590  11.0703 < 2.2e-16 ***
## D1          -69.14793    5.78555 -11.9518 < 2.2e-16 ***
## D2           22.05545    8.71218   2.5316   0.01136 *  
## DD          -12.60207    9.47202  -1.3305   0.18337    
## HOD           1.86075    0.37783   4.9248 8.446e-07 ***
## DOW           1.36179    1.26709   1.0747   0.28249    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-12-15/purple/50-90%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-12-15 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-12-15/purple/50-90% sregdate:2016-12-08 eregdate:2016-12-22"
## [1] "2016-12-15"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-12-08 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-12-11 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-12-15 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-12-15 00:00:00   Mean   :11.47   Mean   :4.003  
##  3rd Qu.:2016-12-18 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-12-22 00:00:00   Max.   :23.00   Max.   :7.000  
##     series              chats             D1           idx       
##  Length:674         Min.   :  8.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 50.0   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 86.0   Median :0.5   Median :337.5  
##                     Mean   :108.7   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:156.0   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :378.0   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 135.95178    9.44451  14.3948 < 2.2e-16 ***
## D1          -77.86391    6.20220 -12.5542 < 2.2e-16 ***
## D2           23.25292    8.99630   2.5847  0.009746 ** 
## DD          -14.84443    9.66638  -1.5357  0.124618    
## HOD           0.92127    0.36896   2.4970  0.012527 *  
## DOW          -1.69238    1.28696  -1.3150  0.188502    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-17/blue/content change"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-17 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-17/blue/content change sregdate:2016-11-10 eregdate:2016-11-24"
## [1] "2016-11-17"
## [1] 146 460
## [1] "scutidx:146" "scutidx:460"
##        dt                           HOD             DOW       
##  Min.   :2016-11-10 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-11-14 05:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-17 11:30:00   Median :11.50   Median :4.000  
##  Mean   :2016-11-17 06:44:19   Mean   :11.48   Mean   :4.089  
##  3rd Qu.:2016-11-20 18:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-24 00:00:00   Max.   :23.00   Max.   :7.000  
##     series              chats             D1           idx       
##  Length:628         Min.   :  2.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:157.8  
##  Mode  :character   Median : 95.0   Median :0.5   Median :314.5  
##                     Mean   :113.3   Mean   :0.5   Mean   :314.5  
##                     3rd Qu.:159.2   3rd Qu.:1.0   3rd Qu.:471.2  
##                     Max.   :357.0   Max.   :1.0   Max.   :628.0  
##        D2              DD        
##  Min.   :0.000   Min.   :0.0000  
##  1st Qu.:0.000   1st Qu.:0.0000  
##  Median :1.000   Median :0.0000  
##  Mean   :0.535   Mean   :0.2675  
##  3rd Qu.:1.000   3rd Qu.:1.0000  
##  Max.   :1.000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value Pr(>|z|)    
## (Intercept) 154.37268   11.65985  13.2397  < 2e-16 ***
## D1          -87.38356    7.54738 -11.5780  < 2e-16 ***
## D2            4.54325    9.52807   0.4768  0.63348    
## DD            5.63356   10.31587   0.5461  0.58499    
## HOD           0.99803    0.40538   2.4620  0.01382 *  
## DOW          -3.13255    1.47222  -2.1278  0.03336 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-11/purple/0-10%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-11 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-11/purple/0-10% sregdate:2016-10-04 eregdate:2016-10-18"
## [1] "2016-10-11"
## [1] 159 486
## [1] "scutidx:159" "scutidx:486"
##        dt                           HOD             DOW      
##  Min.   :2016-10-04 00:00:00   Min.   : 0.00   Min.   :1.00  
##  1st Qu.:2016-10-07 13:15:00   1st Qu.: 5.00   1st Qu.:2.00  
##  Median :2016-10-11 05:00:00   Median :11.00   Median :4.00  
##  Mean   :2016-10-11 02:04:35   Mean   :11.40   Mean   :3.96  
##  3rd Qu.:2016-10-14 14:45:00   3rd Qu.:17.75   3rd Qu.:6.00  
##  Max.   :2016-10-18 00:00:00   Max.   :23.00   Max.   :7.00  
##     series            log_chatss          D1           idx       
##  Length:654         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 53.0   1st Qu.:0.0   1st Qu.:164.2  
##  Mode  :character   Median : 96.0   Median :0.5   Median :327.5  
##                     Mean   :113.9   Mean   :0.5   Mean   :327.5  
##                     3rd Qu.:161.5   3rd Qu.:1.0   3rd Qu.:490.8  
##                     Max.   :360.0   Max.   :1.0   Max.   :654.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :1.0000   Median :0.0000  
##  Mean   :0.5138   Mean   :0.2569  
##  3rd Qu.:1.0000   3rd Qu.:1.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 139.60676   10.11861  13.7970 < 2.2e-16 ***
## D1          -86.52830    7.08887 -12.2062 < 2.2e-16 ***
## D2          -11.41221    8.95529  -1.2744    0.2025    
## DD           -1.09075    9.76352  -0.1117    0.9110    
## HOD           1.67823    0.38572   4.3509 1.356e-05 ***
## DOW           1.16068    1.22876   0.9446    0.3449    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-18/purple/10-30%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-18 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-18/purple/10-30% sregdate:2016-10-11 eregdate:2016-10-25"
## [1] "2016-10-18"
## [1] 169 504
## [1] "scutidx:169" "scutidx:504"
##        dt                           HOD             DOW       
##  Min.   :2016-10-11 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-14 11:15:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-10-17 23:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-10-17 23:26:30   Mean   :11.41   Mean   :3.985  
##  3rd Qu.:2016-10-21 10:45:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-10-25 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            log_chatss          D1           idx       
##  Length:670         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:168.2  
##  Mode  :character   Median : 89.0   Median :0.5   Median :335.5  
##                     Mean   :107.5   Mean   :0.5   Mean   :335.5  
##                     3rd Qu.:147.8   3rd Qu.:1.0   3rd Qu.:502.8  
##                     Max.   :347.0   Max.   :1.0   Max.   :670.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4955   Mean   :0.2478  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 137.70514    9.93706  13.8577 < 2.2e-16 ***
## D1          -87.86982    6.70177 -13.1114 < 2.2e-16 ***
## D2           -8.98603    8.58288  -1.0470  0.295113    
## DD           13.05055    9.38516   1.3906  0.164362    
## HOD           1.43734    0.37727   3.8099  0.000139 ***
## DOW          -0.37349    1.23853  -0.3016  0.762990    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-01/purple/30-50%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-01 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-01/purple/30-50% sregdate:2016-10-25 eregdate:2016-11-08"
## [1] "2016-11-01"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-10-25 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-28 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-01 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-11-01 00:00:00   Mean   :11.47   Mean   :3.997  
##  3rd Qu.:2016-11-04 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-08 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            log_chatss           D1           idx       
##  Length:674         Min.   :  1.00   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 49.25   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 87.00   Median :0.5   Median :337.5  
##                     Mean   :106.29   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:142.75   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :377.00   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 106.22977    9.59590  11.0703 < 2.2e-16 ***
## D1          -69.14793    5.78555 -11.9518 < 2.2e-16 ***
## D2           22.05545    8.71218   2.5316   0.01136 *  
## DD          -12.60207    9.47202  -1.3305   0.18337    
## HOD           1.86075    0.37783   4.9248 8.446e-07 ***
## DOW           1.36179    1.26709   1.0747   0.28249    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-12-15/purple/50-90%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-12-15 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-12-15/purple/50-90% sregdate:2016-12-08 eregdate:2016-12-22"
## [1] "2016-12-15"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-12-08 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-12-11 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-12-15 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-12-15 00:00:00   Mean   :11.47   Mean   :4.003  
##  3rd Qu.:2016-12-18 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-12-22 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            log_chatss          D1           idx       
##  Length:674         Min.   :  8.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 50.0   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 86.0   Median :0.5   Median :337.5  
##                     Mean   :108.7   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:156.0   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :378.0   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 135.95178    9.44451  14.3948 < 2.2e-16 ***
## D1          -77.86391    6.20220 -12.5542 < 2.2e-16 ***
## D2           23.25292    8.99630   2.5847  0.009746 ** 
## DD          -14.84443    9.66638  -1.5357  0.124618    
## HOD           0.92127    0.36896   2.4970  0.012527 *  
## DOW          -1.69238    1.28696  -1.3150  0.188502    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-17/blue/content change"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-17 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-17/blue/content change sregdate:2016-11-10 eregdate:2016-11-24"
## [1] "2016-11-17"
## [1] 146 460
## [1] "scutidx:146" "scutidx:460"
##        dt                           HOD             DOW       
##  Min.   :2016-11-10 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-11-14 05:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-17 11:30:00   Median :11.50   Median :4.000  
##  Mean   :2016-11-17 06:44:19   Mean   :11.48   Mean   :4.089  
##  3rd Qu.:2016-11-20 18:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-24 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            log_chatss          D1           idx       
##  Length:628         Min.   :  2.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:157.8  
##  Mode  :character   Median : 95.0   Median :0.5   Median :314.5  
##                     Mean   :113.3   Mean   :0.5   Mean   :314.5  
##                     3rd Qu.:159.2   3rd Qu.:1.0   3rd Qu.:471.2  
##                     Max.   :357.0   Max.   :1.0   Max.   :628.0  
##        D2              DD        
##  Min.   :0.000   Min.   :0.0000  
##  1st Qu.:0.000   1st Qu.:0.0000  
##  Median :1.000   Median :0.0000  
##  Mean   :0.535   Mean   :0.2675  
##  3rd Qu.:1.000   3rd Qu.:1.0000  
##  Max.   :1.000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value Pr(>|z|)    
## (Intercept) 154.37268   11.65985  13.2397  < 2e-16 ***
## D1          -87.38356    7.54738 -11.5780  < 2e-16 ***
## D2            4.54325    9.52807   0.4768  0.63348    
## DD            5.63356   10.31587   0.5461  0.58499    
## HOD           0.99803    0.40538   2.4620  0.01382 *  
## DOW          -3.13255    1.47222  -2.1278  0.03336 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-11/purple/0-10%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-11 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-11/purple/0-10% sregdate:2016-10-04 eregdate:2016-10-18"
## [1] "2016-10-11"
## [1] 159 486
## [1] "scutidx:159" "scutidx:486"
##        dt                           HOD             DOW      
##  Min.   :2016-10-04 00:00:00   Min.   : 0.00   Min.   :1.00  
##  1st Qu.:2016-10-07 13:15:00   1st Qu.: 5.00   1st Qu.:2.00  
##  Median :2016-10-11 05:00:00   Median :11.00   Median :4.00  
##  Mean   :2016-10-11 02:04:35   Mean   :11.40   Mean   :3.96  
##  3rd Qu.:2016-10-14 14:45:00   3rd Qu.:17.75   3rd Qu.:6.00  
##  Max.   :2016-10-18 00:00:00   Max.   :23.00   Max.   :7.00  
##     series            rate_chats          D1           idx       
##  Length:654         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 53.0   1st Qu.:0.0   1st Qu.:164.2  
##  Mode  :character   Median : 96.0   Median :0.5   Median :327.5  
##                     Mean   :113.9   Mean   :0.5   Mean   :327.5  
##                     3rd Qu.:161.5   3rd Qu.:1.0   3rd Qu.:490.8  
##                     Max.   :360.0   Max.   :1.0   Max.   :654.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :1.0000   Median :0.0000  
##  Mean   :0.5138   Mean   :0.2569  
##  3rd Qu.:1.0000   3rd Qu.:1.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 139.60676   10.11861  13.7970 < 2.2e-16 ***
## D1          -86.52830    7.08887 -12.2062 < 2.2e-16 ***
## D2          -11.41221    8.95529  -1.2744    0.2025    
## DD           -1.09075    9.76352  -0.1117    0.9110    
## HOD           1.67823    0.38572   4.3509 1.356e-05 ***
## DOW           1.16068    1.22876   0.9446    0.3449    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-18/purple/10-30%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-18 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-18/purple/10-30% sregdate:2016-10-11 eregdate:2016-10-25"
## [1] "2016-10-18"
## [1] 169 504
## [1] "scutidx:169" "scutidx:504"
##        dt                           HOD             DOW       
##  Min.   :2016-10-11 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-14 11:15:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-10-17 23:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-10-17 23:26:30   Mean   :11.41   Mean   :3.985  
##  3rd Qu.:2016-10-21 10:45:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-10-25 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            rate_chats          D1           idx       
##  Length:670         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:168.2  
##  Mode  :character   Median : 89.0   Median :0.5   Median :335.5  
##                     Mean   :107.5   Mean   :0.5   Mean   :335.5  
##                     3rd Qu.:147.8   3rd Qu.:1.0   3rd Qu.:502.8  
##                     Max.   :347.0   Max.   :1.0   Max.   :670.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4955   Mean   :0.2478  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 137.70514    9.93706  13.8577 < 2.2e-16 ***
## D1          -87.86982    6.70177 -13.1114 < 2.2e-16 ***
## D2           -8.98603    8.58288  -1.0470  0.295113    
## DD           13.05055    9.38516   1.3906  0.164362    
## HOD           1.43734    0.37727   3.8099  0.000139 ***
## DOW          -0.37349    1.23853  -0.3016  0.762990    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-01/purple/30-50%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-01 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-01/purple/30-50% sregdate:2016-10-25 eregdate:2016-11-08"
## [1] "2016-11-01"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-10-25 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-28 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-01 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-11-01 00:00:00   Mean   :11.47   Mean   :3.997  
##  3rd Qu.:2016-11-04 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-08 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            rate_chats           D1           idx       
##  Length:674         Min.   :  1.00   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 49.25   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 87.00   Median :0.5   Median :337.5  
##                     Mean   :106.29   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:142.75   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :377.00   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 106.22977    9.59590  11.0703 < 2.2e-16 ***
## D1          -69.14793    5.78555 -11.9518 < 2.2e-16 ***
## D2           22.05545    8.71218   2.5316   0.01136 *  
## DD          -12.60207    9.47202  -1.3305   0.18337    
## HOD           1.86075    0.37783   4.9248 8.446e-07 ***
## DOW           1.36179    1.26709   1.0747   0.28249    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-12-15/purple/50-90%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-12-15 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-12-15/purple/50-90% sregdate:2016-12-08 eregdate:2016-12-22"
## [1] "2016-12-15"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-12-08 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-12-11 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-12-15 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-12-15 00:00:00   Mean   :11.47   Mean   :4.003  
##  3rd Qu.:2016-12-18 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-12-22 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            rate_chats          D1           idx       
##  Length:674         Min.   :  8.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 50.0   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 86.0   Median :0.5   Median :337.5  
##                     Mean   :108.7   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:156.0   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :378.0   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 135.95178    9.44451  14.3948 < 2.2e-16 ***
## D1          -77.86391    6.20220 -12.5542 < 2.2e-16 ***
## D2           23.25292    8.99630   2.5847  0.009746 ** 
## DD          -14.84443    9.66638  -1.5357  0.124618    
## HOD           0.92127    0.36896   2.4970  0.012527 *  
## DOW          -1.69238    1.28696  -1.3150  0.188502    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-17/blue/content change"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-17 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-17/blue/content change sregdate:2016-11-10 eregdate:2016-11-24"
## [1] "2016-11-17"
## [1] 146 460
## [1] "scutidx:146" "scutidx:460"
##        dt                           HOD             DOW       
##  Min.   :2016-11-10 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-11-14 05:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-17 11:30:00   Median :11.50   Median :4.000  
##  Mean   :2016-11-17 06:44:19   Mean   :11.48   Mean   :4.089  
##  3rd Qu.:2016-11-20 18:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-24 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            rate_chats          D1           idx       
##  Length:628         Min.   :  2.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:157.8  
##  Mode  :character   Median : 95.0   Median :0.5   Median :314.5  
##                     Mean   :113.3   Mean   :0.5   Mean   :314.5  
##                     3rd Qu.:159.2   3rd Qu.:1.0   3rd Qu.:471.2  
##                     Max.   :357.0   Max.   :1.0   Max.   :628.0  
##        D2              DD        
##  Min.   :0.000   Min.   :0.0000  
##  1st Qu.:0.000   1st Qu.:0.0000  
##  Median :1.000   Median :0.0000  
##  Mean   :0.535   Mean   :0.2675  
##  3rd Qu.:1.000   3rd Qu.:1.0000  
##  Max.   :1.000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value Pr(>|z|)    
## (Intercept) 154.37268   11.65985  13.2397  < 2e-16 ***
## D1          -87.38356    7.54738 -11.5780  < 2e-16 ***
## D2            4.54325    9.52807   0.4768  0.63348    
## DD            5.63356   10.31587   0.5461  0.58499    
## HOD           0.99803    0.40538   2.4620  0.01382 *  
## DOW          -3.13255    1.47222  -2.1278  0.03336 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-11/purple/0-10%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-11 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-11/purple/0-10% sregdate:2016-10-04 eregdate:2016-10-18"
## [1] "2016-10-11"
## [1] 159 486
## [1] "scutidx:159" "scutidx:486"
##        dt                           HOD             DOW      
##  Min.   :2016-10-04 00:00:00   Min.   : 0.00   Min.   :1.00  
##  1st Qu.:2016-10-07 13:15:00   1st Qu.: 5.00   1st Qu.:2.00  
##  Median :2016-10-11 05:00:00   Median :11.00   Median :4.00  
##  Mean   :2016-10-11 02:04:35   Mean   :11.40   Mean   :3.96  
##  3rd Qu.:2016-10-14 14:45:00   3rd Qu.:17.75   3rd Qu.:6.00  
##  Max.   :2016-10-18 00:00:00   Max.   :23.00   Max.   :7.00  
##     series              calls             D1           idx       
##  Length:654         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 53.0   1st Qu.:0.0   1st Qu.:164.2  
##  Mode  :character   Median : 96.0   Median :0.5   Median :327.5  
##                     Mean   :113.9   Mean   :0.5   Mean   :327.5  
##                     3rd Qu.:161.5   3rd Qu.:1.0   3rd Qu.:490.8  
##                     Max.   :360.0   Max.   :1.0   Max.   :654.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :1.0000   Median :0.0000  
##  Mean   :0.5138   Mean   :0.2569  
##  3rd Qu.:1.0000   3rd Qu.:1.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 139.60676   10.11861  13.7970 < 2.2e-16 ***
## D1          -86.52830    7.08887 -12.2062 < 2.2e-16 ***
## D2          -11.41221    8.95529  -1.2744    0.2025    
## DD           -1.09075    9.76352  -0.1117    0.9110    
## HOD           1.67823    0.38572   4.3509 1.356e-05 ***
## DOW           1.16068    1.22876   0.9446    0.3449    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-18/purple/10-30%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-18 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-18/purple/10-30% sregdate:2016-10-11 eregdate:2016-10-25"
## [1] "2016-10-18"
## [1] 169 504
## [1] "scutidx:169" "scutidx:504"
##        dt                           HOD             DOW       
##  Min.   :2016-10-11 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-14 11:15:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-10-17 23:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-10-17 23:26:30   Mean   :11.41   Mean   :3.985  
##  3rd Qu.:2016-10-21 10:45:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-10-25 00:00:00   Max.   :23.00   Max.   :7.000  
##     series              calls             D1           idx       
##  Length:670         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:168.2  
##  Mode  :character   Median : 89.0   Median :0.5   Median :335.5  
##                     Mean   :107.5   Mean   :0.5   Mean   :335.5  
##                     3rd Qu.:147.8   3rd Qu.:1.0   3rd Qu.:502.8  
##                     Max.   :347.0   Max.   :1.0   Max.   :670.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4955   Mean   :0.2478  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 137.70514    9.93706  13.8577 < 2.2e-16 ***
## D1          -87.86982    6.70177 -13.1114 < 2.2e-16 ***
## D2           -8.98603    8.58288  -1.0470  0.295113    
## DD           13.05055    9.38516   1.3906  0.164362    
## HOD           1.43734    0.37727   3.8099  0.000139 ***
## DOW          -0.37349    1.23853  -0.3016  0.762990    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-01/purple/30-50%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-01 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-01/purple/30-50% sregdate:2016-10-25 eregdate:2016-11-08"
## [1] "2016-11-01"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-10-25 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-28 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-01 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-11-01 00:00:00   Mean   :11.47   Mean   :3.997  
##  3rd Qu.:2016-11-04 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-08 00:00:00   Max.   :23.00   Max.   :7.000  
##     series              calls              D1           idx       
##  Length:674         Min.   :  1.00   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 49.25   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 87.00   Median :0.5   Median :337.5  
##                     Mean   :106.29   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:142.75   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :377.00   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 106.22977    9.59590  11.0703 < 2.2e-16 ***
## D1          -69.14793    5.78555 -11.9518 < 2.2e-16 ***
## D2           22.05545    8.71218   2.5316   0.01136 *  
## DD          -12.60207    9.47202  -1.3305   0.18337    
## HOD           1.86075    0.37783   4.9248 8.446e-07 ***
## DOW           1.36179    1.26709   1.0747   0.28249    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-12-15/purple/50-90%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-12-15 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-12-15/purple/50-90% sregdate:2016-12-08 eregdate:2016-12-22"
## [1] "2016-12-15"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-12-08 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-12-11 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-12-15 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-12-15 00:00:00   Mean   :11.47   Mean   :4.003  
##  3rd Qu.:2016-12-18 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-12-22 00:00:00   Max.   :23.00   Max.   :7.000  
##     series              calls             D1           idx       
##  Length:674         Min.   :  8.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 50.0   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 86.0   Median :0.5   Median :337.5  
##                     Mean   :108.7   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:156.0   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :378.0   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 135.95178    9.44451  14.3948 < 2.2e-16 ***
## D1          -77.86391    6.20220 -12.5542 < 2.2e-16 ***
## D2           23.25292    8.99630   2.5847  0.009746 ** 
## DD          -14.84443    9.66638  -1.5357  0.124618    
## HOD           0.92127    0.36896   2.4970  0.012527 *  
## DOW          -1.69238    1.28696  -1.3150  0.188502    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-17/blue/content change"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-17 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-17/blue/content change sregdate:2016-11-10 eregdate:2016-11-24"
## [1] "2016-11-17"
## [1] 146 460
## [1] "scutidx:146" "scutidx:460"
##        dt                           HOD             DOW       
##  Min.   :2016-11-10 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-11-14 05:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-17 11:30:00   Median :11.50   Median :4.000  
##  Mean   :2016-11-17 06:44:19   Mean   :11.48   Mean   :4.089  
##  3rd Qu.:2016-11-20 18:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-24 00:00:00   Max.   :23.00   Max.   :7.000  
##     series              calls             D1           idx       
##  Length:628         Min.   :  2.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:157.8  
##  Mode  :character   Median : 95.0   Median :0.5   Median :314.5  
##                     Mean   :113.3   Mean   :0.5   Mean   :314.5  
##                     3rd Qu.:159.2   3rd Qu.:1.0   3rd Qu.:471.2  
##                     Max.   :357.0   Max.   :1.0   Max.   :628.0  
##        D2              DD        
##  Min.   :0.000   Min.   :0.0000  
##  1st Qu.:0.000   1st Qu.:0.0000  
##  Median :1.000   Median :0.0000  
##  Mean   :0.535   Mean   :0.2675  
##  3rd Qu.:1.000   3rd Qu.:1.0000  
##  Max.   :1.000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value Pr(>|z|)    
## (Intercept) 154.37268   11.65985  13.2397  < 2e-16 ***
## D1          -87.38356    7.54738 -11.5780  < 2e-16 ***
## D2            4.54325    9.52807   0.4768  0.63348    
## DD            5.63356   10.31587   0.5461  0.58499    
## HOD           0.99803    0.40538   2.4620  0.01382 *  
## DOW          -3.13255    1.47222  -2.1278  0.03336 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-11/purple/0-10%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-11 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-11/purple/0-10% sregdate:2016-10-04 eregdate:2016-10-18"
## [1] "2016-10-11"
## [1] 159 486
## [1] "scutidx:159" "scutidx:486"
##        dt                           HOD             DOW      
##  Min.   :2016-10-04 00:00:00   Min.   : 0.00   Min.   :1.00  
##  1st Qu.:2016-10-07 13:15:00   1st Qu.: 5.00   1st Qu.:2.00  
##  Median :2016-10-11 05:00:00   Median :11.00   Median :4.00  
##  Mean   :2016-10-11 02:04:35   Mean   :11.40   Mean   :3.96  
##  3rd Qu.:2016-10-14 14:45:00   3rd Qu.:17.75   3rd Qu.:6.00  
##  Max.   :2016-10-18 00:00:00   Max.   :23.00   Max.   :7.00  
##     series            log_calls           D1           idx       
##  Length:654         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 53.0   1st Qu.:0.0   1st Qu.:164.2  
##  Mode  :character   Median : 96.0   Median :0.5   Median :327.5  
##                     Mean   :113.9   Mean   :0.5   Mean   :327.5  
##                     3rd Qu.:161.5   3rd Qu.:1.0   3rd Qu.:490.8  
##                     Max.   :360.0   Max.   :1.0   Max.   :654.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :1.0000   Median :0.0000  
##  Mean   :0.5138   Mean   :0.2569  
##  3rd Qu.:1.0000   3rd Qu.:1.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 139.60676   10.11861  13.7970 < 2.2e-16 ***
## D1          -86.52830    7.08887 -12.2062 < 2.2e-16 ***
## D2          -11.41221    8.95529  -1.2744    0.2025    
## DD           -1.09075    9.76352  -0.1117    0.9110    
## HOD           1.67823    0.38572   4.3509 1.356e-05 ***
## DOW           1.16068    1.22876   0.9446    0.3449    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-18/purple/10-30%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-18 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-18/purple/10-30% sregdate:2016-10-11 eregdate:2016-10-25"
## [1] "2016-10-18"
## [1] 169 504
## [1] "scutidx:169" "scutidx:504"
##        dt                           HOD             DOW       
##  Min.   :2016-10-11 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-14 11:15:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-10-17 23:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-10-17 23:26:30   Mean   :11.41   Mean   :3.985  
##  3rd Qu.:2016-10-21 10:45:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-10-25 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            log_calls           D1           idx       
##  Length:670         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:168.2  
##  Mode  :character   Median : 89.0   Median :0.5   Median :335.5  
##                     Mean   :107.5   Mean   :0.5   Mean   :335.5  
##                     3rd Qu.:147.8   3rd Qu.:1.0   3rd Qu.:502.8  
##                     Max.   :347.0   Max.   :1.0   Max.   :670.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4955   Mean   :0.2478  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 137.70514    9.93706  13.8577 < 2.2e-16 ***
## D1          -87.86982    6.70177 -13.1114 < 2.2e-16 ***
## D2           -8.98603    8.58288  -1.0470  0.295113    
## DD           13.05055    9.38516   1.3906  0.164362    
## HOD           1.43734    0.37727   3.8099  0.000139 ***
## DOW          -0.37349    1.23853  -0.3016  0.762990    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-01/purple/30-50%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-01 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-01/purple/30-50% sregdate:2016-10-25 eregdate:2016-11-08"
## [1] "2016-11-01"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-10-25 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-28 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-01 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-11-01 00:00:00   Mean   :11.47   Mean   :3.997  
##  3rd Qu.:2016-11-04 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-08 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            log_calls            D1           idx       
##  Length:674         Min.   :  1.00   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 49.25   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 87.00   Median :0.5   Median :337.5  
##                     Mean   :106.29   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:142.75   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :377.00   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 106.22977    9.59590  11.0703 < 2.2e-16 ***
## D1          -69.14793    5.78555 -11.9518 < 2.2e-16 ***
## D2           22.05545    8.71218   2.5316   0.01136 *  
## DD          -12.60207    9.47202  -1.3305   0.18337    
## HOD           1.86075    0.37783   4.9248 8.446e-07 ***
## DOW           1.36179    1.26709   1.0747   0.28249    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-12-15/purple/50-90%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-12-15 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-12-15/purple/50-90% sregdate:2016-12-08 eregdate:2016-12-22"
## [1] "2016-12-15"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-12-08 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-12-11 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-12-15 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-12-15 00:00:00   Mean   :11.47   Mean   :4.003  
##  3rd Qu.:2016-12-18 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-12-22 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            log_calls           D1           idx       
##  Length:674         Min.   :  8.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 50.0   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 86.0   Median :0.5   Median :337.5  
##                     Mean   :108.7   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:156.0   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :378.0   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 135.95178    9.44451  14.3948 < 2.2e-16 ***
## D1          -77.86391    6.20220 -12.5542 < 2.2e-16 ***
## D2           23.25292    8.99630   2.5847  0.009746 ** 
## DD          -14.84443    9.66638  -1.5357  0.124618    
## HOD           0.92127    0.36896   2.4970  0.012527 *  
## DOW          -1.69238    1.28696  -1.3150  0.188502    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-17/blue/content change"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-17 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-17/blue/content change sregdate:2016-11-10 eregdate:2016-11-24"
## [1] "2016-11-17"
## [1] 146 460
## [1] "scutidx:146" "scutidx:460"
##        dt                           HOD             DOW       
##  Min.   :2016-11-10 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-11-14 05:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-17 11:30:00   Median :11.50   Median :4.000  
##  Mean   :2016-11-17 06:44:19   Mean   :11.48   Mean   :4.089  
##  3rd Qu.:2016-11-20 18:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-24 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            log_calls           D1           idx       
##  Length:628         Min.   :  2.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:157.8  
##  Mode  :character   Median : 95.0   Median :0.5   Median :314.5  
##                     Mean   :113.3   Mean   :0.5   Mean   :314.5  
##                     3rd Qu.:159.2   3rd Qu.:1.0   3rd Qu.:471.2  
##                     Max.   :357.0   Max.   :1.0   Max.   :628.0  
##        D2              DD        
##  Min.   :0.000   Min.   :0.0000  
##  1st Qu.:0.000   1st Qu.:0.0000  
##  Median :1.000   Median :0.0000  
##  Mean   :0.535   Mean   :0.2675  
##  3rd Qu.:1.000   3rd Qu.:1.0000  
##  Max.   :1.000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value Pr(>|z|)    
## (Intercept) 154.37268   11.65985  13.2397  < 2e-16 ***
## D1          -87.38356    7.54738 -11.5780  < 2e-16 ***
## D2            4.54325    9.52807   0.4768  0.63348    
## DD            5.63356   10.31587   0.5461  0.58499    
## HOD           0.99803    0.40538   2.4620  0.01382 *  
## DOW          -3.13255    1.47222  -2.1278  0.03336 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-11/purple/0-10%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-11 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-11/purple/0-10% sregdate:2016-10-04 eregdate:2016-10-18"
## [1] "2016-10-11"
## [1] 159 486
## [1] "scutidx:159" "scutidx:486"
##        dt                           HOD             DOW      
##  Min.   :2016-10-04 00:00:00   Min.   : 0.00   Min.   :1.00  
##  1st Qu.:2016-10-07 13:15:00   1st Qu.: 5.00   1st Qu.:2.00  
##  Median :2016-10-11 05:00:00   Median :11.00   Median :4.00  
##  Mean   :2016-10-11 02:04:35   Mean   :11.40   Mean   :3.96  
##  3rd Qu.:2016-10-14 14:45:00   3rd Qu.:17.75   3rd Qu.:6.00  
##  Max.   :2016-10-18 00:00:00   Max.   :23.00   Max.   :7.00  
##     series            rate_calls          D1           idx       
##  Length:654         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 53.0   1st Qu.:0.0   1st Qu.:164.2  
##  Mode  :character   Median : 96.0   Median :0.5   Median :327.5  
##                     Mean   :113.9   Mean   :0.5   Mean   :327.5  
##                     3rd Qu.:161.5   3rd Qu.:1.0   3rd Qu.:490.8  
##                     Max.   :360.0   Max.   :1.0   Max.   :654.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :1.0000   Median :0.0000  
##  Mean   :0.5138   Mean   :0.2569  
##  3rd Qu.:1.0000   3rd Qu.:1.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 139.60676   10.11861  13.7970 < 2.2e-16 ***
## D1          -86.52830    7.08887 -12.2062 < 2.2e-16 ***
## D2          -11.41221    8.95529  -1.2744    0.2025    
## DD           -1.09075    9.76352  -0.1117    0.9110    
## HOD           1.67823    0.38572   4.3509 1.356e-05 ***
## DOW           1.16068    1.22876   0.9446    0.3449    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-10-18/purple/10-30%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-10-18 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-10-18/purple/10-30% sregdate:2016-10-11 eregdate:2016-10-25"
## [1] "2016-10-18"
## [1] 169 504
## [1] "scutidx:169" "scutidx:504"
##        dt                           HOD             DOW       
##  Min.   :2016-10-11 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-14 11:15:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-10-17 23:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-10-17 23:26:30   Mean   :11.41   Mean   :3.985  
##  3rd Qu.:2016-10-21 10:45:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-10-25 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            rate_calls          D1           idx       
##  Length:670         Min.   :  4.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:168.2  
##  Mode  :character   Median : 89.0   Median :0.5   Median :335.5  
##                     Mean   :107.5   Mean   :0.5   Mean   :335.5  
##                     3rd Qu.:147.8   3rd Qu.:1.0   3rd Qu.:502.8  
##                     Max.   :347.0   Max.   :1.0   Max.   :670.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4955   Mean   :0.2478  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 137.70514    9.93706  13.8577 < 2.2e-16 ***
## D1          -87.86982    6.70177 -13.1114 < 2.2e-16 ***
## D2           -8.98603    8.58288  -1.0470  0.295113    
## DD           13.05055    9.38516   1.3906  0.164362    
## HOD           1.43734    0.37727   3.8099  0.000139 ***
## DOW          -0.37349    1.23853  -0.3016  0.762990    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-01/purple/30-50%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-01 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-01/purple/30-50% sregdate:2016-10-25 eregdate:2016-11-08"
## [1] "2016-11-01"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-10-25 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-10-28 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-01 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-11-01 00:00:00   Mean   :11.47   Mean   :3.997  
##  3rd Qu.:2016-11-04 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-08 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            rate_calls           D1           idx       
##  Length:674         Min.   :  1.00   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 49.25   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 87.00   Median :0.5   Median :337.5  
##                     Mean   :106.29   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:142.75   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :377.00   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 106.22977    9.59590  11.0703 < 2.2e-16 ***
## D1          -69.14793    5.78555 -11.9518 < 2.2e-16 ***
## D2           22.05545    8.71218   2.5316   0.01136 *  
## DD          -12.60207    9.47202  -1.3305   0.18337    
## HOD           1.86075    0.37783   4.9248 8.446e-07 ***
## DOW           1.36179    1.26709   1.0747   0.28249    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-12-15/purple/50-90%"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-12-15 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-12-15/purple/50-90% sregdate:2016-12-08 eregdate:2016-12-22"
## [1] "2016-12-15"
## [1] 169 506
## [1] "scutidx:169" "scutidx:506"
##        dt                           HOD             DOW       
##  Min.   :2016-12-08 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-12-11 12:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-12-15 00:00:00   Median :11.00   Median :4.000  
##  Mean   :2016-12-15 00:00:00   Mean   :11.47   Mean   :4.003  
##  3rd Qu.:2016-12-18 12:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-12-22 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            rate_calls          D1           idx       
##  Length:674         Min.   :  8.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 50.0   1st Qu.:0.0   1st Qu.:169.2  
##  Mode  :character   Median : 86.0   Median :0.5   Median :337.5  
##                     Mean   :108.7   Mean   :0.5   Mean   :337.5  
##                     3rd Qu.:156.0   3rd Qu.:1.0   3rd Qu.:505.8  
##                     Max.   :378.0   Max.   :1.0   Max.   :674.0  
##        D2               DD        
##  Min.   :0.0000   Min.   :0.0000  
##  1st Qu.:0.0000   1st Qu.:0.0000  
##  Median :0.0000   Median :0.0000  
##  Mean   :0.4985   Mean   :0.2493  
##  3rd Qu.:1.0000   3rd Qu.:0.0000  
##  Max.   :1.0000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value  Pr(>|z|)    
## (Intercept) 135.95178    9.44451  14.3948 < 2.2e-16 ***
## D1          -77.86391    6.20220 -12.5542 < 2.2e-16 ***
## D2           23.25292    8.99630   2.5847  0.009746 ** 
## DD          -14.84443    9.66638  -1.5357  0.124618    
## HOD           0.92127    0.36896   2.4970  0.012527 *  
## DOW          -1.69238    1.28696  -1.3150  0.188502    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

## [1] "xtkchib"
## [1] "xabchib"
## [1] "2016-11-17/blue/content change"
## [1] "2016-06-01 01:00:00 UTC"
## [1] "2017-01-31 23:00:00 UTC"
## [1] 7
## [1] 7
## [1] "2016-11-17 UTC"
## [1] "POSIXct" "POSIXt" 
## [1] "getregdf2 - sdate:2016-11-17/blue/content change sregdate:2016-11-10 eregdate:2016-11-24"
## [1] "2016-11-17"
## [1] 146 460
## [1] "scutidx:146" "scutidx:460"
##        dt                           HOD             DOW       
##  Min.   :2016-11-10 00:00:00   Min.   : 0.00   Min.   :1.000  
##  1st Qu.:2016-11-14 05:00:00   1st Qu.: 5.00   1st Qu.:2.000  
##  Median :2016-11-17 11:30:00   Median :11.50   Median :4.000  
##  Mean   :2016-11-17 06:44:19   Mean   :11.48   Mean   :4.089  
##  3rd Qu.:2016-11-20 18:00:00   3rd Qu.:17.00   3rd Qu.:6.000  
##  Max.   :2016-11-24 00:00:00   Max.   :23.00   Max.   :7.000  
##     series            rate_calls          D1           idx       
##  Length:628         Min.   :  2.0   Min.   :0.0   Min.   :  1.0  
##  Class :character   1st Qu.: 51.0   1st Qu.:0.0   1st Qu.:157.8  
##  Mode  :character   Median : 95.0   Median :0.5   Median :314.5  
##                     Mean   :113.3   Mean   :0.5   Mean   :314.5  
##                     3rd Qu.:159.2   3rd Qu.:1.0   3rd Qu.:471.2  
##                     Max.   :357.0   Max.   :1.0   Max.   :628.0  
##        D2              DD        
##  Min.   :0.000   Min.   :0.0000  
##  1st Qu.:0.000   1st Qu.:0.0000  
##  Median :1.000   Median :0.0000  
##  Mean   :0.535   Mean   :0.2675  
##  3rd Qu.:1.000   3rd Qu.:1.0000  
##  Max.   :1.000   Max.   :1.0000  
## 
## z test of coefficients:
## 
##              Estimate Std. Error  z value Pr(>|z|)    
## (Intercept) 154.37268   11.65985  13.2397  < 2e-16 ***
## D1          -87.38356    7.54738 -11.5780  < 2e-16 ***
## D2            4.54325    9.52807   0.4768  0.63348    
## DD            5.63356   10.31587   0.5461  0.58499    
## HOD           0.99803    0.40538   2.4620  0.01382 *  
## DOW          -3.13255    1.47222  -2.1278  0.03336 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

DOD Results

idx	title	model	formula	chgDate	chgVal	chgCoef.fit	chgCoef.smry	chgStd.smry	chgZval.cfit	chgPval.cfit	s
1	Xbox - Hourly Chats	model-did	chats ~ D1 + D2 + DD + HOD + DOW	2016-10-11	0_10	-1.090746	-1.090746	9.756309	-0.1117165	0.9110482	|
2	Xbox - Hourly Chats	model-did	chats ~ D1 + D2 + DD + HOD + DOW	2016-10-18	10_30	13.050545	13.050545	9.387582	1.3905507	0.1643617	|
3	Xbox - Hourly Chats	model-did	chats ~ D1 + D2 + DD + HOD + DOW	2016-11-01	30_50	-12.602071	-12.602071	9.464968	-1.3304520	0.1833694	|
4	Xbox - Hourly Chats	model-did	chats ~ D1 + D2 + DD + HOD + DOW	2016-12-15	50_90	-14.844428	-14.844428	9.661394	-1.5356765	0.1246177	|
5	Xbox - Hourly Chats	model-did	chats ~ D1 + D2 + DD + HOD + DOW	2016-11-17	content change	5.633562	5.633562	10.315511	0.5461062	0.5849929	|
6	Xbox - log(Hourly Chats)	model-did	log_chatss ~ D1 + D2 + DD + HOD + DOW	2016-10-11	0_10	-1.090746	-1.090746	9.756309	-0.1117165	0.9110482	|
7	Xbox - log(Hourly Chats)	model-did	log_chatss ~ D1 + D2 + DD + HOD + DOW	2016-10-18	10_30	13.050545	13.050545	9.387582	1.3905507	0.1643617	|
8	Xbox - log(Hourly Chats)	model-did	log_chatss ~ D1 + D2 + DD + HOD + DOW	2016-11-01	30_50	-12.602071	-12.602071	9.464968	-1.3304520	0.1833694	|
9	Xbox - log(Hourly Chats)	model-did	log_chatss ~ D1 + D2 + DD + HOD + DOW	2016-12-15	50_90	-14.844428	-14.844428	9.661394	-1.5356765	0.1246177	|
10	Xbox - log(Hourly Chats)	model-did	log_chatss ~ D1 + D2 + DD + HOD + DOW	2016-11-17	content change	5.633562	5.633562	10.315511	0.5461062	0.5849929	|
11	Xbox - Hourly Chat Rate per Session	model-did	rate_chats ~ D1 + D2 + DD + HOD + DOW	2016-10-11	0_10	-1.090746	-1.090746	9.756309	-0.1117165	0.9110482	|
12	Xbox - Hourly Chat Rate per Session	model-did	rate_chats ~ D1 + D2 + DD + HOD + DOW	2016-10-18	10_30	13.050545	13.050545	9.387582	1.3905507	0.1643617	|
13	Xbox - Hourly Chat Rate per Session	model-did	rate_chats ~ D1 + D2 + DD + HOD + DOW	2016-11-01	30_50	-12.602071	-12.602071	9.464968	-1.3304520	0.1833694	|
14	Xbox - Hourly Chat Rate per Session	model-did	rate_chats ~ D1 + D2 + DD + HOD + DOW	2016-12-15	50_90	-14.844428	-14.844428	9.661394	-1.5356765	0.1246177	|
15	Xbox - Hourly Chat Rate per Session	model-did	rate_chats ~ D1 + D2 + DD + HOD + DOW	2016-11-17	content change	5.633562	5.633562	10.315511	0.5461062	0.5849929	|
16	Xbox - Hourly Chats	model-did	calls ~ D1 + D2 + DD + HOD + DOW	2016-10-11	0_10	-1.090746	-1.090746	9.756309	-0.1117165	0.9110482	|
17	Xbox - Hourly Chats	model-did	calls ~ D1 + D2 + DD + HOD + DOW	2016-10-18	10_30	13.050545	13.050545	9.387582	1.3905507	0.1643617	|
18	Xbox - Hourly Chats	model-did	calls ~ D1 + D2 + DD + HOD + DOW	2016-11-01	30_50	-12.602071	-12.602071	9.464968	-1.3304520	0.1833694	|
19	Xbox - Hourly Chats	model-did	calls ~ D1 + D2 + DD + HOD + DOW	2016-12-15	50_90	-14.844428	-14.844428	9.661394	-1.5356765	0.1246177	|
20	Xbox - Hourly Chats	model-did	calls ~ D1 + D2 + DD + HOD + DOW	2016-11-17	content change	5.633562	5.633562	10.315511	0.5461062	0.5849929	|
21	Xbox - log(Hourly Chats)	model-did	log_calls ~ D1 + D2 + DD + HOD + DOW	2016-10-11	0_10	-1.090746	-1.090746	9.756309	-0.1117165	0.9110482	|
22	Xbox - log(Hourly Chats)	model-did	log_calls ~ D1 + D2 + DD + HOD + DOW	2016-10-18	10_30	13.050545	13.050545	9.387582	1.3905507	0.1643617	|
23	Xbox - log(Hourly Chats)	model-did	log_calls ~ D1 + D2 + DD + HOD + DOW	2016-11-01	30_50	-12.602071	-12.602071	9.464968	-1.3304520	0.1833694	|
24	Xbox - log(Hourly Chats)	model-did	log_calls ~ D1 + D2 + DD + HOD + DOW	2016-12-15	50_90	-14.844428	-14.844428	9.661394	-1.5356765	0.1246177	|
25	Xbox - log(Hourly Chats)	model-did	log_calls ~ D1 + D2 + DD + HOD + DOW	2016-11-17	content change	5.633562	5.633562	10.315511	0.5461062	0.5849929	|
26	Xbox - Hourly Chat Rate per Session	model-did	rate_calls ~ D1 + D2 + DD + HOD + DOW	2016-10-11	0_10	-1.090746	-1.090746	9.756309	-0.1117165	0.9110482	|
27	Xbox - Hourly Chat Rate per Session	model-did	rate_calls ~ D1 + D2 + DD + HOD + DOW	2016-10-18	10_30	13.050545	13.050545	9.387582	1.3905507	0.1643617	|
28	Xbox - Hourly Chat Rate per Session	model-did	rate_calls ~ D1 + D2 + DD + HOD + DOW	2016-11-01	30_50	-12.602071	-12.602071	9.464968	-1.3304520	0.1833694	|
29	Xbox - Hourly Chat Rate per Session	model-did	rate_calls ~ D1 + D2 + DD + HOD + DOW	2016-12-15	50_90	-14.844428	-14.844428	9.661394	-1.5356765	0.1246177	|
30	Xbox - Hourly Chat Rate per Session	model-did	rate_calls ~ D1 + D2 + DD + HOD + DOW	2016-11-17	content change	5.633562	5.633562	10.315511	0.5461062	0.5849929	|

Done

## [1] "Version 0.1 created on 29 Apr 2017 - 16:49:39 took 49.4 secs"